The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/tj.src

Text File | 1990-10-18 | 238b | 14 lines

%%HP: T(3)A(D)F(.);
@ by Larry Morton.
@ used by FRAD2.
\<< DUP 1
  IF ==
  THEN DROP 'C1' STO* 0
  ELSE DEPTH ROLLD 2 DUPN
    IF ==
    THEN 'A1' STO* DROP DEPTH ROLL 2 -
    ELSE 'C1' STO* DEPTH ROLL 1 -
    END
  END
\>>